home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Install / program files / Borland / BDS / 3.0 / Demos / Delphi.Net / CLR / Remoting / HTTPService.dpr < prev    next >
Encoding:
Text File  |  2004-10-22  |  1.2 KB  |  30 lines
  1. program HTTPService;
  2.  
  3. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'}
  4. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.ServiceProcess.dll'}
  5. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll'}
  6. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Configuration.Install.dll'}
  7.  
  8. uses
  9.   System.Reflection,
  10.   System.ServiceProcess,
  11.   uRNGintf in 'uRNGintf.pas',
  12.   uNTService in 'uNTService.pas' {uNTService.TNTKeyService: System.ServiceProcess.ServiceBase},
  13.   uInstService in 'uInstService.pas' {uInstService.TNTServiceInstaller: System.Configuration.Install.Installer};
  14.  
  15. [assembly: AssemblyTitle      ('NT Key Service')]
  16. [assembly: AssemblyDescription('NT Key Service')]
  17. [assembly: AssemblyCompany    ('Ultimate Software, Inc.')]
  18. [assembly: AssemblyProduct    ('UsgKeyService')]
  19. [assembly: AssemblyCopyright  ('⌐ 2003 Ultimate Software, Inc.')]
  20. [assembly: AssemblyTrademark  ('ULTIPRO')]
  21. [assembly: AssemblyVersion    ('1.0.0.0')]
  22.  
  23. {$R Ultimate.res}
  24.  
  25. [STAthread]
  26. begin
  27.   NTKeyService := TNTKeyService.Create;
  28.   System.ServiceProcess.ServiceBase.Run([NTKeyService]);
  29. end.
  30.